*===============================================================================
*
*					WORKER BELIEFS ABOUT OUTSIDE OPTIONS
*		(c)	Simon Jaeger, Christopher Roth, Nina Roussille, Benjamin Schoefer
*							  2023 December 5
*						   	   	 Local Data 
*
*===============================================================================


********************************************************************************
*								Figure E02a 								   *
********************************************************************************

use "$temp/robust.dta", clear
  
distplot pct_wage_change_combined, over(soep_order) ytitle("Cumulative Probability") xtitle("Belief: Own Wage Change") legend(lab(1 "Two-Step Categorical Elicitation") lab(2 "One-Step Elicitation about Level") rows(2) region(c(none)) margin(vsmall) bmargin(6) order(1 2) pos(10) ring(0)) lp(solid dash) color(black gray) xlabel(#10) ylabel(#5, grid)
graph display,xsize(14) ysize(7)
graph export "$fig/FigureE02a.pdf", replace


********************************************************************************
*								Figure E02b 								   *
********************************************************************************
  
distplot switchout_combined, over(soep_order) ytitle("Cumulative Probability") xtitle("Belief: Coworker Wage Change") legend(lab(1 "Same Pay Option + Categorical Elicitation") lab(2 "No Same Pay Option + Open Elicitation") rows(2) region(c(none)) margin(vsmall) bmargin(6) order(1 2) pos(10) ring(0)) lp(solid dash) color(black gray) xlabel(#10) ylabel(#5, grid)
graph display, xsize(14) ysize(7)
graph export "$fig/FigureE02b.pdf", replace


********************************************************************************
*								Figure E02c 								   *
********************************************************************************
  
distplot pct_wage_change_combined, over(timing_order) ytitle("Cumulative Probability") xtitle("Belief: Own Wage Change") legend(lab(1 "3 Months to Find a New Job") lab(2 "12 Months to Find a New Job") rows(2) region(c(none)) margin(vsmall) bmargin(6) order(1 2) pos(10) ring(0)) lp(solid dash) color(black gray) xlabel(#10) ylabel(#5, grid)
graph display, xsize(14) ysize(7)
graph export "$fig/FigureE02c.pdf", replace	


********************************************************************************
*								Figure E02d 								   *
********************************************************************************
  
distplot pct_wage_change_combined  pct_wage_change_masslayoff, ytitle("Cumulative Probability") xtitle("Belief: Own Wage Change") legend(lab(1 "General Framing") lab(2 "Firm Closure Framing") rows(2) region(c(none)) margin(vsmall) bmargin(6) order(1 2) pos(10) ring(0)) lp(solid dash) color(black gray) xlabel(#10)  ylabel(#5, grid)
graph display, xsize(14) ysize(7)
graph export "$fig/FigureE02d.pdf", replace


********************************************************************************
*								Figure E02e 								   *
********************************************************************************
  
distplot pct_wage_change_combined, over(occupation_order) ytitle("Cumulative Probability") xtitle("Belief: Own Wage Change") legend(lab(1 "Conditioning on Occupation") lab(2 "Not Conditioning on Occupation") rows(2) region(c(none)) margin(vsmall) bmargin(6) order(1 2) pos(10) ring(0)) lp(solid dash) color(black gray) xlabel(#10) ylabel(#5, grid)
graph display, xsize(14) ysize(7)
graph export "$fig/FigureE02e.pdf", replace

********************************************************************************
*								Figure E02f 								   *
********************************************************************************

distplot perc_median_fail, over(incentives) ytitle("Cumulative Probability") xtitle("Biases in Beliefs as % of Wage") legend(lab(1 "Elicitation Without Incentive") lab(2 "Elicitation With Incentive") rows(2) region(c(none)) margin(vsmall) bmargin(6) order(1 2) pos(10) ring(0)) lp(solid dash) color(black gray) xlabel(#10) ylabel(#5, grid)
graph display, xsize(14) ysize(7)
graph export "$fig/FigureE02f.pdf", replace

